home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 23 / 023.d81 / db's cheapsheet (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.9 KB  |  90 lines
  1. 90 gosub 900
  2. 100 print"[147]db's cheapsheet"
  3. 110 print"printer ready (y/n)"
  4. 115 gett$:ift$<>"n" and t$<>"y" then 115
  5. 117 if t$="n" then 840
  6. 120 print"working. . . "
  7. 130 :
  8. 140 rem start printing
  9. 150 :
  10. 160 open1,4
  11. 170 :
  12. 180 rem  lines # 0-5
  13. 190 :
  14. 200 print#1,s1$+b1$;
  15. 210 for x=1 to 60:print#1,b3$;:next:print#1,b2$
  16. 220 print#1,bl$:print#1,bl$
  17. 230 print#1,s1$+b6$+s1$+s3$+b1$;
  18. 240 forx=1to14:print#1,b3$;:next:print#1,b2$+s1$+s1$+s1$+b6$
  19. 250 print#1,s1$+b6$+s1$+s3$+b6$;
  20. 260 print#1,s1$+s3$;:print#1,b4$;:forx=1to14:print#1,b3$;:next
  21. 270 print#1,b2$+s1$+s3$+sp$+b6$
  22. 280 :
  23. 290 rem lines # 6-15
  24. 300 :
  25. 310 forx=1to10
  26. 320 print#1,s1$+b6$+s1$+s3$+b6$+left$(s2$,29)+b6$+s1$+s3$+sp$+b6$
  27. 330 next
  28. 340 :
  29. 350 rem close line #15
  30. 360 :
  31. 370 print#1,s1$+b6$+s3$+sp$+sp$+b1$;:forx=1to7:print#1,b3$;:next
  32. 380 print#1,b5$+left$(s2$,29)+b6$+s1$+s3$+sp$+b6$
  33. 390 :
  34. 400 rem lines # 16-55
  35. 410 :
  36. 420 for x=16 to 55
  37. 430 print#1,s1$+b6$+s3$+sp$+sp$+b6$+left$(s2$,37)+b6$+s1$+s3$+sp$+b6$
  38. 440 next
  39. 450 :
  40. 460 rem  line #56
  41. 470 :
  42. 480 print#1,s1$+b6$+s3$+sp$+sp$+b4$;:forx=1to7:print#1,b3$;:next
  43. 490 print#1,b2$+left$(s2$,29)+b6$+s1$+s3$+sp$+b6$
  44. 500 :
  45. 510 rem  lines # 57-75
  46. 520 :
  47. 530 forx=1to18
  48. 540 print#1,s1$+b6$+s1$+s3$+b6$+left$(s2$,29)+b6$+s1$+s3$+sp$+b6$
  49. 550 next
  50. 560 :
  51. 570 rem lines # 76-77
  52. 580 :
  53. 590 print#1,s1$+b6$+s1$+s3$+b4$;
  54. 600 for x=1 to 14:print#1,b3$;:next:print#1,b2$+s1$+s3$+b6$+s1$+s3$+sp$+b6$
  55. 610 print#1,s1$+b6$+left$(s2$,29);
  56. 620 print#1,b4$;:forx=1to14:print#1,b3$;:next:print#1,b5$+s1$+s3$+sp$+b6$
  57. 630 forx=1to4:print#1,bl$:next
  58. 640 :
  59. 650 rem lines # 82-89
  60. 660 :
  61. 670 print#1,s1$+b6$+s1$+s3$+b1$;
  62. 680 forx=1to29:print#1,b3$;:next:print#1,b2$+s1$+s3$+sp$+b6$
  63. 690 forx=1to6
  64. 700 print#1,s1$+b6$+s1$+s3$+b6$+left$(s2$,29)+b6$+s1$+s3$+sp$+b6$
  65. 710 next
  66. 720 print#1,s1$+b6$+s1$+s3$+b4$;
  67. 730 forx=1to29:print#1,b3$;:next:print#1,b5$+s1$+s3$+sp$+b6$
  68. 740 :
  69. 750 rem lines #90-
  70. 760 :
  71. 770 forx=1to6:print#1,bl$:next
  72. 780 print#1,s1$+b4$;
  73. 790 forx=1to60:print#1,b3$;:next:print#1,b5$
  74. 800 :
  75. 810 rem  end or repeat
  76. 820 :
  77. 830 print#1,:close1
  78. 840 print"[147]another copy (y/n)  n";:input"[157][157][157]";r$
  79. 850 if r$<>"y" then print"[147]":load"hello connect",8:end
  80. 860 run
  81. 870 :
  82. 880 rem  initialize graphic variables
  83. 890 :
  84. 900 b1$="[176]":b2$="[174]":b3$="[192]":b4$="[173]":b5$="[189]":b6$="[221]":sp$=" "
  85. 910 s1$="          "
  86. 920 s2$="                                        "
  87. 930 s3$="    "
  88. 940 bl$=s1$+b6$+s2$+s1$+s1$+b6$
  89. 950 return
  90.